home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed22.d64 / r2d2 division (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  25KB  |  997 lines
  1. 2 REM R2DIVISION BY R.KEAYS MAY1983
  2. 3 PRINTCHR$(5):REM TURN ON WHITE
  3. 4 POKE53280,0:REM GREEN BORDER
  4. 6 FORSV=1TO15STEP5:POKE54296,SV:FORD=1TO10:NEXTD:NEXTSV
  5. 11 GOSUB45498:PRINT"R2D2 DIVISION":GOSUB46100
  6. 12 FORD=1TO200:NEXTD:GOSUB48100:PRINT"[147]";
  7. 13 PRINT"[147]"
  8. 14 PRINT"   ------------MENU-----------":PRINT:PRINT
  9. 15 PRINT"   1. INSTRUCTIONS TO STUDENTS":PRINT
  10. 16 PRINT"   2. INSTRUCTIONS TO TEACHERS":PRINT
  11. 17 PRINT"   3. BEGIN PROGRAM.":PRINT
  12. 18 PRINT"   4. END THE PROGRAM.":PRINT:PRINT
  13. 19 PRINT"TYPE THE NUMBER OF YOUR CHOICE."
  14. 20 GETZ$:IFZ$=""THEN20
  15. 21 IFZ$<"1"ORZ$>"4"THEN19
  16. 22 ONVAL(Z$)GOTO15000,16000,30,9100
  17. 23 CP=0:REM*** POD COUNTER ***
  18. 24 :
  19. 25 SQ=0:REM*** CHOOSE SOUND ***
  20. 26 :
  21. 27 UN=0:REM*** THE UNIVERSE ***
  22. 28 :
  23. 30 GOSUB3770:REM*** R2D2 WALKS ***
  24. 50 PRINT"[147]";
  25. 70 GOSUB3350:REM** ESTABLISH PROBLEM **
  26. 72 GOSUB48005
  27. 76 PRINT"[147]"
  28. 77 GOSUB47000:REM*** R2D2 FRONT VIEW ***
  29. 80 PRINT"HERE'S THE STAR  FLEET.":GOSUB9840:GOSUB48000
  30. 110 GOSUB4770:REM*** PODS ***
  31. 112 :
  32. 115 GOSUB47000:REM*** R2D2 FRONT VIEW **
  33. 116 FORK=1TO1000:NEXTK
  34. 150 PRINT"HOW MANY POD COMMANDERS "
  35. 152 PRINT"WILL WE NEED?":GOSUB9840:GOSUB18000
  36. 153 INPUT"TYPE THE NUMBER";CO$
  37. 154 IFCO$<>"5"THEN190
  38. 155 PRINT"[147]":GOSUB47000
  39. 156 PRINT"THAT'S RIGHT ";NA$;"!":GOSUB9820:FORD=1TO2000
  40. 157 PRINT"":GOSUB18100:GOTO248
  41. 190 PRINT"[147]";:GOSUB4770
  42. 248 FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB50000
  43. 250 PRINT"[147]NOW LET'S TRY TO SOLVE THE PROBLEM      WITHOUT USING A PICTURE."
  44. 252 PRINT
  45. 270 PRINT"WE WRITE THE PROBLEM THIS WAY."
  46. 290 PRINT""
  47. 310 PRINT"       [164][164][164][164][164]"
  48. 330 PRINT"     31)155"
  49. 350 FORK=1TO5000:NEXTK
  50. 370 PRINT"        "
  51. 390 PRINT"        ^"
  52. 410 PRINT
  53. 430 PRINT"     THIS MEANS:"
  54. 450 PRINT
  55. 470 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO2000:NEXTK
  56. 474 PRINT"OR HOW MANY PODS OF 31 ARE IN 155 SHIPS?":FORK=1TO2000:NEXTK
  57. 476 GOSUB18000:REM *** FIDDLEPROOFING**
  58. 510 GOSUB48005:REM *** SPACE BAR ***
  59. 590 PRINT"[147]";:PRINT""
  60. 610 PRINT"       [164][164][164][164][164]"
  61. 630 PRINT"     31)155  "
  62. 650 PRINT:FORK=1TO2000:NEXTK:POKE1352,177
  63. 670 PRINT"NOW WE ASK:"
  64. 690 PRINT"HOW MANY GROUPS OF 31 ARE IN 1?":FORK=1TO200:NEXTK
  65. 710 PRINT""
  66. 720 GOSUB18000:REM***FIDDLEPROOFING***
  67. 730 FORK=1TO1000:NEXTK:PRINT""
  68. 731 INPUT"TYPE THE NUMBER";A
  69. 733 IFA<>0THENGOTO755
  70. 737 GOSUB47000
  71. 738 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
  72. 740 GOTO830
  73. 755 GOSUB47000
  74. 760 PRINT"YOU CAN'T GET A GROUP OF 31 FROM 1.":GOSUB9840
  75. 764 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
  76. 830 PRINT"[147]"
  77. 850 PRINT"        "
  78. 870 PRINT"       [164][164][164][164][164]"
  79. 890 PRINT"     31)155"
  80. 910 FORK=1TO1000:NEXTK
  81. 930 PRINT"THERE ARE NO GROUPS 0F 31 IN 1.":FORK=1TO3000:NEXTK
  82. 950 PRINT"";TAB(7);0
  83. 970 PRINT"                                                   "
  84. 990 FORK=1TO1000:NEXTK:POKE1352,177:POKE1353,181
  85. 1010 PRINT"NOW WE ASK:":PRINT
  86. 1030 PRINT"HOW MANY GROUPS OF 31 ARE IN 15?"
  87. 1050 FORK=1TO1000:NEXTK:PRINT""
  88. 1070 PRINT""
  89. 1090 PRINT:FORK=1TO2000:NEXTK
  90. 1100 GOSUB18000:REM***FIDDLEPROOFING**
  91. 1110 INPUT"TYPE THE NUMBER";B
  92. 1112 IFB<>0THENGOTO1175
  93. 1116 GOSUB47000:REM** R2D2 FRONT VIEW **
  94. 1118 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
  95. 1120 GOTO1190
  96. 1175 GOSUB47000
  97. 1177 PRINT" YOU CAN'T GET A GROUP OF 31 FROM 15.":GOSUB9840
  98. 1178 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
  99. 1190 PRINT"[147]":PRINT
  100. 1210 PRINT"";TAB(8);"0"
  101. 1230 PRINT"       [164][164][164][164][164]"
  102. 1250 PRINT"     31)155 "
  103. 1270 FORK=1TO1000:NEXTK
  104. 1290 PRINT"THERE ARE NO GROUPS OF 31 IN 15.":FORK=1TO6000:NEXTK
  105. 1310 PRINT"";TAB(8);"00"
  106. 1330 PRINT"                                                              "
  107. 1350 FORK=1TO1000:NEXTK
  108. 1370 PRINT"NOW WE ASK:":PRINT
  109. 1390 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO3000:NEXTK
  110. 1410 PRINT""
  111. 1450 PRINT""
  112. 1470 PRINT"HINT-FLASHING NUMBERS[146]"
  113. 1510 FORK=1TO1000:NEXTK
  114. 1515 GOSUB17600:REM** FLASHING NUMBER **
  115. 1520 GOSUB18000:REM***FIDDLEPROOFING**
  116. 1530 PRINT:INPUT"SO HOW MANY 31'S ARE IN 155";C
  117. 1534 IFC<>5THENGOTO1555
  118. 1540 GOSUB47000
  119. 1542 PRINT"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
  120. 1544 GOTO1630
  121. 1555 GOSUB47000
  122. 1560 PRINT"SORRY ";NA$;".":GOSUB9840:PRINT
  123. 1565 PRINTTAB(6);"3 + 3 + 3 + 3 + 3 = 15":FORD=1TO3000:NEXTD:PRINT
  124. 1566 PRINT"THERE ARE FIVE 3'S IN 15.":GOSUB9840
  125. 1567 FORK=1TO3000:NEXTK:GOSUB18000
  126. 1568 GOSUB48005:REM*** SPACE BAR ***
  127. 1630 PRINT"[147]":PRINT
  128. 1650 PRINT"";TAB(8);"00"
  129. 1670 PRINT"       [164][164][164][164][164]"
  130. 1690 PRINT"     31)155":FORK=1TO2000:NEXTK
  131. 1710 PRINT"THERE ARE FIVE 3'S IN 15."
  132. 1730 PRINT" SO"
  133. 1750 PRINT" THERE ARE PROBABLY FIVE 31'S IN 155.":GOSUB18000:GOSUB48005
  134. 1760 GOSUB16100
  135. 1770 PRINT"";TAB(8);"00"
  136. 1790 PRINT"                                                                "
  137. 1810 PRINT"                                                                "
  138. 1812 FORFI=0TO6:REM** DROP A FIVE **
  139. 1813 POKE1034+(FI*40),53
  140. 1814 IFFI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO1816
  141. 1815 GOSUB9920:FORD=1TO300:NEXTD
  142. 1816 POKE1034+(FI*40),32:NEXTFI
  143. 1817 POKE1274,53
  144. 1830 FORK=1TO500:NEXTK
  145. 1850 PRINT""
  146. 1870 PRINT"NOW WE MULTIPLY 5*31 AND PUT "
  147. 1890 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
  148. 1891 GOSUB17800:FORD=1TO1000:NEXTD:REM****** FLASHING ARROW *****
  149. 1899 :
  150. 1900 GOSUB18000:REM*** FIDDLEPROOFING *
  151. 1901 :
  152. 1910 GOSUB48005:REM*** SPACE BAR ***
  153. 1911 :
  154. 1990 PRINT"[147]":PRINT
  155. 2010 PRINT"";TAB(8);"005"
  156. 2030 PRINT"       [164][164][164][164][164]"
  157. 2050 PRINT"     31)155":FORK=1TO1000:NEXTK
  158. 2070 PRINT"5*31 IS 155.":FORK=1TO3000:NEXTK
  159. 2090 PRINT"";TAB(7);155
  160. 2110 PRINTTAB(8);"[163][163][163]"
  161. 2130 PRINT"                                                                   "
  162. 2150 FORK=1TO1000:NEXTK
  163. 2830 PRINT" SUBTRACT."
  164. 2850 FORK=1TO2000:NEXTK:GOSUB18000
  165. 2869 :
  166. 2870 GOSUB48005:REM*** SPACE BAR ***
  167. 2871 :
  168. 2950 PRINT"[147]":PRINT
  169. 2970 PRINT"";TAB(8);"005"
  170. 2990 PRINT"       [164][164][164][164][164]"
  171. 3010 PRINT"     31)155 "
  172. 3030 PRINTTAB(8);"155"
  173. 3050 PRINTTAB(8);"[163][163][163]"
  174. 3070 PRINTTAB(8);"000":FORD=1TO2000:NEXTD:PRINT:PRINT:PRINT:PRINT
  175. 3078 :
  176. 3080 GOSUB18100:REM*** 5 COMMANDERS ***
  177. 3082 :
  178. 3083 FORK=1TO500:NEXTK
  179. 3090 :
  180. 3091 REM***** COMMANDER LABEL ******
  181. 3092 GOSUB18200:FORD=1TO3000:NEXTD
  182. 3093 :
  183. 3095 PRINT"[147]":FORD=1TO100:NEXTD
  184. 3096 :
  185. 3310 PRINT"[147]RIGHT ON ";NA$;"!":GOSUB31200
  186. 3311 GOSUB48100:REM*** CANTINA BAND ***
  187. 3312 GOSUB31200
  188. 3320 PRINT"[147]"
  189. 3325 :
  190. 3330 GOTO7900:REM** TO DECISION LINE **
  191. 3335 :
  192. 3350 GOSUB47000
  193. 3494 PRINT:PRINT:PRINT
  194. 3545 PRINTTAB(13);"  I AM R2D2.":GOSUB9840:FORD=1TO1000:NEXTD
  195. 3550 PRINT"[145]                            ":GOSUB18000
  196. 3551 PRINT"WHAT IS YOUR NAME  ?":GOSUB9840:PRINT"[145]";TAB(23):INPUTNA$
  197. 3552 PRINT"[145]                             "
  198. 3553 PRINT"[145]THAT'S A FUNNY NAME.        ":GOSUB9820:FORD=1TO2000:NEXTD
  199. 3554 PRINT"[147]":REM**** STARSHIPS *****
  200. 3561 GOSUB20000
  201. 3564 GOSUB40000
  202. 3566 GOSUB42000
  203. 3567 GOSUB44000
  204. 3568 FORK=1TO100:NEXTK
  205. 3569 :
  206. 3570 GOSUB50000:REM** SCREEN BLANKING **
  207. 3572 :
  208. 3590 GOSUB47000:REM**** R2D2 ****
  209. 3591 :
  210. 3592 PRINT:PRINTTAB(10);"THAT WAS A STARSHIP!":GOSUB9820:FORD=1TO2000:NEXTD
  211. 3610 PRINT"[145]   I AM ABOUT TO LEAVE FOR THE GALAXY ":PRINT
  212. 3630 PRINT" DIVISO WITH A STAR FLEET OF 155 SHIPS.":PRINT
  213. 3640 PRINT" WE WILL FLY IN A POD FORMATION." :FORK=1TO2:GOSUB9840:NEXTK
  214. 3650 :
  215. 3651 GOSUB18000:REM** FIDDLEPROOFING **
  216. 3652 GOSUB48005:REM** SPACE BAR ****
  217. 3657 GOSUB33000:GOSUB5595
  218. 3665 GOSUB47000:REM*** R2D2 ***
  219. 3667 FORK=1TO1000:NEXTK
  220. 3670 PRINT:PRINT"     EACH POD IS TO HAVE 31 STARSHIPS.":PRINT
  221. 3690 PRINT"I NEED TO KNOW HOW MANY POD COMMANDERS ":PRINT
  222. 3710 PRINT"TO CALL UP. HELP ME FIGURE IT OUT.":GOSUB9840:FORK=1TO1200:NEXTK
  223. 3740 GOSUB18000
  224. 3750 RETURN
  225. 3760 :
  226. 3761 REM**** R2D2 WALKS ****
  227. 3770 PRINT"[147]"
  228. 3790 FORX=0TO15
  229. 3810 PRINT"[147]";TAB(X);"  [206][163][163][163][163][205]  "
  230. 3830 PRINTTAB(X);" [206]  [205] . [165] "
  231. 3850 PRINTTAB(X);"[206]    [205]  [165] "
  232. 3870 PRINTTAB(X);"[205]  [167] .[205][206]  "
  233. 3890 PRINTTAB(X);" [205] [167]  [206]   "
  234. 3910 PRINTTAB(X);"  [205][167] [206]    "
  235. 3930 PRINTTAB(X);"  [167][167][206]     "
  236. 3950 PRINTTAB(X);"  [167][167]      "
  237. 3970 PRINTTAB(X);"  [167] [205]     "
  238. 3990 PRINTTAB(X);"   [163][163]     "
  239. 4010 FORT=0TO100:NEXTT
  240. 4030 NEXTX
  241. 4050 RETURN
  242. 4768 :
  243. 4769 REM***** PODS *****
  244. 4770 PRINT"[147]"TAB(1);"POD1 "
  245. 4771 FORX=6TO36
  246. 4772 PRINT"[145]";TAB(X);"*":FORD=1TO100:NEXTD:NEXTX:PRINT
  247. 4790 FORK=1TO500:NEXTK
  248. 4810 PRINT"
  249. 4830 [153][163]1);"POD2 ******************************* ":[153]
  250. 4850 [129]K[178]1[164]500:[130]K
  251. 4870 [153]"
  252. 4890 PRINTTAB(1);"POD3 ******************************* ":PRINT
  253. 4910 FORK=1TO500:NEXTK
  254. 4930 PRINT"
  255. 4950 [153][163]1);"POD4 ******************************* ":[153]
  256. 4970 [129]K[178]1[164]500:[130]K
  257. 4990 [153]"
  258. 5189 PRINTTAB(1);"POD5 ******************************* ":FORK=1TO500:NEXTK
  259. 5190 PRINT
  260. 5191 CP=CP+1
  261. 5192 IFCP=2THENGOTO5200
  262. 5193 FORX=1TO31:REM HORIZONTAL COUNTER
  263. 5194 PRINT"[145]";TAB(X+4);X:FORK=1TO100:NEXTK
  264. 5196 NEXTX:GOSUB48000
  265. 5198 IFCP=1THEN5220
  266. 5200 PRINT"WE NEED FIVE POD COMMANDERS.":FORD=1TO2000:NEXTD:PRINT
  267. 5205 :
  268. 5210 GOSUB18100:RETURN
  269. 5220 GOSUB18000:GOSUB48000
  270. 5230 RETURN
  271. 5497 :
  272. 5498 REM****** STAR GENERATOR ******
  273. 5595 PRINT""
  274. 6000 PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164]
  275. 6010 [153]" THEN             (null)
  276. 6020 PRINT" [167]   DIVISON    [205]
  277. 6030 [153]" THEN 1 000 000 KM (null)
  278. 6040 PRINT" [167][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
  279. 6050 [153]"
  280. 6052 GOSUB48100:REM UP UP AND AWAY
  281. 6055 GOSUB51000:REM*** POD ACTION ***
  282. 6060 FORK=1TO2000:NEXT
  283. 6070 RETURN
  284. 7898 :
  285. 7899 :
  286. 7900 PRINT"[147]     CHOOSE A NUMBER.":PRINT:PRINT
  287. 7902 PRINT"  1. DO A REVIEW QUESTION.":PRINT
  288. 7904 PRINT"  2. DO A HARDER QUESTION.":PRINT
  289. 7906 PRINT"  3. DO A TEST QUESTION.":PRINT
  290. 7908 PRINT"  4. END THE PROGRAM."
  291. 7912 GETZ$:IFZ$=""THEN7912
  292. 7914 IFZ$<"1"ORZ$>"4"THEN7900
  293. 7916 ONVAL(Z$)GOTO9200,8000,8093,9100
  294. 7997 :
  295. 7998 :
  296. 7999 REM**** HARDER WORK BEGINS ****
  297. 8000 PRINT"[147]";:GOSUB47000
  298. 8002 PRINT:PRINT"SOMETIMES THE 'HINT' DOESN'T WORK.":GOSUB9820:PRINT
  299. 8004 PRINT" WATCH THIS.":FORD=1TO1000:NEXTD
  300. 8006 GOSUB18000:GOSUB48000
  301. 8010 PRINT"[147]"
  302. 8012 PRINT"        0
  303. 8014 [153]"       TOTOTOTOTO
  304. 8016 PRINT"     24)192
  305. 8018 [129]K[178]1[164]1000:[130]K
  306. 8020 [153]"LOAD"
  307. 8022 [153]"        00
  308. 8024 PRINT"       [164][164][164][164][164]
  309. 8026 [153]"     24)192
  310. 8029 FORK=1TO1000:NEXTK
  311. 8030 PRINT"NOW WE ASK:":PRINT
  312. 8032 PRINT"HOW MANY GROUPS OF 24 ARE IN 192?":FORK=1TO4000:NEXTK
  313. 8041 FORK=1TO1000:NEXTK:GOSUB17700:REM       ***** FLASHING NUMBER *****
  314. 8042 GOSUB18000:REM** FIDDLEPROOFING ***
  315. 8043 PRINT:INPUT"SO HOW MANY 24'S ARE IN 192";C
  316. 8044 IFC<>9THENGOTO8056
  317. 8048 GOSUB47000:REM R2D2 FRONT VIEW
  318. 8049 PRINT"THAT LOOKS LIKE THE CORRECT ANSWER......"
  319. 8050 PRINT"BUT LET'S SEE.": GOSUB9820:GOSUB18000:GOSUB48005:GOSUB16100
  320. 8051 REM** GET MORE ROOM ***
  321. 8052 GOSUB11630:GOTO58094
  322. 8056 GOSUB47000
  323. 8058 PRINT
  324. 8060 PRINTTAB(10);"2+2+2+2+2+2+2+2+2+1=19":FORD=1TO1000:NEXTD:PRINT
  325. 8080 PRINT"THERE ARE NINE 2'S IN 19.":GOSUB9840
  326. 8081 FORK=1TO1000:NEXTK:GOSUB18000
  327. 8082 GOSUB48005
  328. 8083 :
  329. 8084 GOSUB11630:REM*** GET MORE ROOM ***
  330. 8085 GOTO58094:REM HARDER TEST QUESTION
  331. 8086 :
  332. 8092 :
  333. 8093 REM: EASY TEST QUESTION BEGINS
  334. 8094 PRINT"[147]"TAB(11);"[164][164][164][164][164]"
  335. 8095 PRINTTAB(9);"83)249"
  336. 8096 PRINT"NOW WRITE THIS PROBLEM DOWN ON A PIECE  OF PAPER.":PRINT
  337. 8097 PRINTTAB(1);"SEE IF YOU CAN SOLVE IT.":FORK=1TO3000:NEXTK:GOSUB18000
  338. 8098 PRINT""TAB(4);"PRESS SPACE BAR[146] TO SEE THE ANSWER."
  339. 8100 GETM$
  340. 8105 IFM$=""THEN8100
  341. 8106 M=ASC(M$)
  342. 8107 IFM<>160ANDM<>32THEN8100
  343. 9003 PRINT"[147]"
  344. 9004 PRINT"           [164][164][164][164][164]
  345. 9005 [153]"         83)249
  346. 9006 FORK=1TO2000:NEXTK
  347. 9010 PRINT"[147]"
  348. 9012 PRINT"            0
  349. 9014 [153]"           TOTOTOTOTO
  350. 9016 PRINT"         83)249
  351. 9018 [129]K[178]1[164]1000:[130]K
  352. 9020 [153]"LOAD"
  353. 9022 [153]"            00
  354. 9024 PRINT"           [164][164][164][164][164]
  355. 9026 [153]"         83)249
  356. 9028 FORK=1TO1000:NEXTK
  357. 9030 PRINT"[147]"
  358. 9032 PRINT"            003
  359. 9034 [153]"           TOTOTOTOTO
  360. 9036 PRINT"         83)249
  361. 9038 [129]K[178]1[164]1000:[130]K
  362. 9040 [153]"LOAD"
  363. 9042 [153]"            003
  364. 9044 PRINT"           [164][164][164][164][164]
  365. 9046 [153]"         83)249
  366. 9048 PRINT"            249
  367. 9050 [129]K[178]1[164]1000:[130]K
  368. 9060 [153]"LOAD"
  369. 9062 [153]"            003
  370. 9064 PRINT"           [164][164][164][164][164]
  371. 9066 [153]"         83)249
  372. 9068 PRINT"            249
  373. 9070 [153]"            TAB(TAB(TAB(
  374. 9080 FORK=1TO1000:NEXTK
  375. 9082 PRINT"[147]"
  376. 9084 PRINT"            003
  377. 9086 [153]"           TOTOTOTOTO
  378. 9088 PRINT"         83)249
  379. 9089 [153]"            249
  380. 9090 PRINT"            [163][163][163]
  381. 9092 [153]"            000
  382. 9094 FORK=1TO3000:NEXTK:GOSUB9600:FORD=1TO1000:NEXTD:REM**** WIPEOUT ****
  383. 9095 GOSUB3770:GOSUB47000:REM R2D2 TALK
  384. 9096 PRINT"SO LONG ";NA$;"."
  385. 9097 GOSUB9840:RESTORE:FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB45498
  386. 9098 GOSUB48100:REM*** STAR WAR THEME
  387. 9099 PRINT"[147]":GOSUB9600
  388. 9100 PRINT"[147]";:FORSV=15TO1STEP-1:POKE54296,SV:FORD=1TO10:NEXTD:NEXTSV
  389. 9101 GOTO 10000
  390. 9102 REM**** REVIEW QUESTION *****
  391. 9200 PRINT"[147]";:PRINT""
  392. 9202 PRINT"       [164][164][164][164][164]"
  393. 9204 PRINT"     41)246  "
  394. 9206 PRINT:FORK=1TO2000:NEXTK:POKE1352,178
  395. 9208 PRINT"NOW WE ASK:"
  396. 9210 PRINT"HOW MANY GROUPS OF 41 ARE IN 2?":FORK=1TO200:NEXTK
  397. 9212 PRINT""
  398. 9214 FORK=1TO1000:NEXTK:PRINT"":GOSUB18000
  399. 9216 INPUT"TYPE THE NUMBER";A
  400. 9218 IFA<>0THEN9230
  401. 9222 GOSUB47000
  402. 9224 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORD=1TO1000:NEXTD
  403. 9226 GOTO9236
  404. 9230 GOSUB47000
  405. 9232 PRINT"YOU CAN'T GET A GROUP OF 41 FROM 2.":GOSUB9840
  406. 9233 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
  407. 9236 PRINT"[147]"
  408. 9240 PRINT"        "
  409. 9242 PRINT"       [164][164][164][164][164]"
  410. 9244 PRINT"     41)246"
  411. 9246 FORK=1TO1000:NEXTK
  412. 9248 PRINT"THERE ARE NO GROUPS 0F 41 IN 2.":FORK=1TO3000:NEXTK
  413. 9250 PRINT"";TAB(7);0
  414. 9252 PRINT"                                                   "
  415. 9254 FORK=1TO2000:NEXTK:POKE1352,178:POKE1353,180
  416. 9256 PRINT"NOW WE ASK:":PRINT
  417. 9258 PRINT"HOW MANY GROUPS OF 41 ARE IN 24?"
  418. 9260 FORK=1TO1000:NEXTK:PRINT""
  419. 9262 PRINT""
  420. 9264 PRINT:FORK=1TO1000:NEXTK:GOSUB18000
  421. 9266 INPUT"TYPE THE NUMBER";B
  422. 9268 IFB<>0THEN9280
  423. 9272 GOSUB47000
  424. 9274 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":FORK=1TO500:NEXTK:GOSUB9820
  425. 9276 GOTO9283
  426. 9280 GOSUB47000
  427. 9282 PRINT" YOU CAN'T GET A GROUP OF 41 FROM 24.":GOSUB9840
  428. 9283 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
  429. 9286 PRINT"[147]":PRINT
  430. 9288 PRINT"";TAB(8);"0"
  431. 9290 PRINT"       [164][164][164][164][164]"
  432. 9292 PRINT"     41)246 "
  433. 9294 FORK=1TO2000:NEXTK
  434. 9296 PRINT"THERE ARE NO GROUPS OF 41 IN 24.":FORK=1TO6000:NEXTK
  435. 9298 PRINT"";TAB(8);"00"
  436. 9300 PRINT"                                                              "
  437. 9304 FORK=1TO3000:NEXTK
  438. 9306 PRINT"NOW WE ASK:":PRINT
  439. 9308 PRINT"HOW MANY GROUPS OF 41 ARE IN 246?":FORK=1TO3000:NEXTK
  440. 9310 PRINT""
  441. 9314 PRINT""
  442. 9318 PRINT"HINT-FLASHING NUMBERS[146]"
  443. 9321 FORK=1TO1000:NEXTK
  444. 9322 GOSUB17500:REM*** FLASHING NUMBER
  445. 9323 GOSUB18000:REM*** FIDDLEPROOFING
  446. 9325 PRINT:INPUT"SO HOW MANY 41'S ARE IN 246";C
  447. 9328 IFC=6THENGOTO9354
  448. 9338 GOSUB47000
  449. 9340 PRINTTAB(12);"SORRY ";NA$;".":GOSUB9840:PRINT
  450. 9342 PRINTTAB(6);"4 + 4 + 4 + 4 + 4 + 4 = 24":FORD=1TO1000:NEXTD:PRINT
  451. 9343 PRINT"THERE ARE SIX 4'S IN 24.":GOSUB9840
  452. 9344 FORK=1TO1000:NEXTK:GOSUB18000:GOSUB48005
  453. 9354 PRINT"[147]":PRINT
  454. 9356 PRINT"";TAB(8);"00"
  455. 9358 PRINT"       [164][164][164][164][164]"
  456. 9360 PRINT"     41)246":FORK=1TO2000:NEXTK
  457. 9362 PRINT"THERE ARE SIX 4'S IN 24."
  458. 9364 PRINT" SO"
  459. 9368 PRINT" THERE ARE PROBABLY SIX 41'S IN 246.":GOSUB18000:GOSUB48005
  460. 9369 GOSUB16100
  461. 9370 PRINT"";TAB(8);"00"
  462. 9372 PRINT"                                                                "
  463. 9373 PRINT"                                                                  "
  464. 9374 FORSI=0TO6:REM*** DROP IN A SIX **
  465. 9375 POKE1034+(SI*40),54
  466. 9376 IFSI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO9378
  467. 9377 GOSUB9920:FORD=1TO300:NEXTD
  468. 9378 POKE1034+(SI*40),32:NEXTSI
  469. 9379 POKE1274,54:FORD=1TO500:NEXTD
  470. 9380 PRINT""
  471. 9381 PRINT"NOW WE MULTIPLY 6*41 AND PUT "
  472. 9382 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
  473. 9383 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000:REM*** FIDDLEPROOFING ***
  474. 9384 GOSUB48005:REM*** SPACE BAR ***
  475. 9392 PRINT"[147]":PRINT
  476. 9394 PRINT"";TAB(8);"006"
  477. 9396 PRINT"       [164][164][164][164][164]"
  478. 9398 PRINT"     41)246":FORK=1TO1000:NEXTK
  479. 9400 PRINT"6*41 IS 246.":FORK=1TO3000:NEXTK
  480. 9402 PRINT"";TAB(8);"246"
  481. 9404 PRINTTAB(8);"[163][163][163]"
  482. 9406 PRINT"                                                                "
  483. 9408 FORK=1TO1000:NEXTK
  484. 9410 PRINT" SUBTRACT."
  485. 9412 FORK=1TO1000:NEXTK:GOSUB18000
  486. 9414 GOSUB48005:REM*** SPACE BAR ***
  487. 9422 PRINT"[147]":PRINT
  488. 9424 PRINT"";TAB(8);"006"
  489. 9426 PRINT"       [164][164][164][164][164]"
  490. 9428 PRINT"     41)246 "
  491. 9430 PRINTTAB(8);"246"
  492. 9432 PRINTTAB(8);"[163][163][163]"
  493. 9434 PRINTTAB(8);"000"
  494. 9440 FORK=1TO2000:NEXTK
  495. 9450 GOSUB9600:REM*** WIPEOUT ***
  496. 9478 GOTO7900
  497. 9479 :
  498. 9599 :
  499. 9600 S=1184:F=1184+35:REM*** WIPEOUT **
  500. 9610 FORX=STOF
  501. 9620 POKEX,45
  502. 9630 NEXTX
  503. 9640 FORX=STOF
  504. 9650 POKEX,32
  505. 9660 NEXTX
  506. 9670 S=S+41:F=F+39
  507. 9680 IFS<FTHEN9610
  508. 9690 RETURN
  509. 9799 :
  510. 9819 :
  511. 9820 REM***** R2D2 SHORT TALK HI ****
  512. 9821 S=54272:DR=16
  513. 9822 FORL=STOS+23:POKEL,0:NEXT
  514. 9823 POKES+5,9:POKES+6,0
  515. 9824 REM
  516. 9825 FORK=1TO10
  517. 9827 POKES+1,34:POKES,75
  518. 9828 POKES+4,33
  519. 9829 FORT=1TODR:NEXT
  520. 9830 POKES+4,32:FORT=1TO50:NEXT
  521. 9831 POKES+1,43:POKES,52
  522. 9832 POKES+4,33
  523. 9833 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
  524. 9834 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
  525. 9835 REM
  526. 9836 RETURN
  527. 9837 :
  528. 9839 :
  529. 9840 REM***** R2D2 SHORT TALK LOW ****
  530. 9842 S=54272:DR=16
  531. 9843 FORL=STOS+23:POKEL,0:NEXT
  532. 9844 POKES+5,9:POKES+6,0
  533. 9845 REM
  534. 9846 FORK=1TO10
  535. 9847 POKES+1,17:POKES,37
  536. 9848 POKES+4,33
  537. 9849 FORT=1TODR:NEXT
  538. 9850 POKES+4,32:FORT=1TO50:NEXT
  539. 9851 POKES+1,21:POKES,154
  540. 9852 POKES+4,33
  541. 9853 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
  542. 9854 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
  543. 9855 REM
  544. 9856 RETURN
  545. 9857 :
  546. 9919 REM*** DROPPING TONES ***
  547. 9920 S=54272:DP=0:DR=64
  548. 9921 FORL=STOS+23:POKEL,0:NEXT
  549. 9922 POKES+5,9:POKES+6,0:REM ADSR
  550. 9923 REM
  551. 9924 DP=DP+1:ONDPGOTO9925,9926,9927,9928,9929,9930,9931
  552. 9925 POKES+1,28:POKES,214:GOTO9935
  553. 9926 POKES+1,25:POKES,177:GOTO9935
  554. 9927 POKES+1,22:POKES,227:GOTO9935
  555. 9928 POKES+1,21:POKES,154:GOTO9935
  556. 9929 POKES+1,19:POKES,63:GOTO9935
  557. 9930 POKES+1,17:POKES,37:GOTO9935
  558. 9931 POKES+1,15:POKES,70:GOTO9935
  559. 9935 POKES+4,33:REM GATE SAWTOOTH WAVEFORM
  560. 9937 FORT=1TODR:NEXTT
  561. 9940 POKES+4,32:FORT=1TO50:NEXTT:REM      RELEASE S W
  562. 9942 IFDP<7THENRETURN
  563. 9944 REM
  564. 9945 RETURN
  565. 10000 PRINT"[147] RETURNING TO THE DISK MENU
  566. 10010 [147]"MENU",8
  567. 10020 [138]
  568. 10030 [128]
  569. 11627 :
  570. 11628 [143]**** CONTINUE HARDER WORK ****
  571. 11629 :
  572. 11630 [153]"LOAD":[153]
  573. 11650 [153]"";[163]8);"00"
  574. 11670 [153]"       TOTOTOTOTO"
  575. 11690 [153]"     24)192":[129]K[178]1[164]2000:[130]K
  576. 11710 [153]"THERE ARE NINE 2'S IN 19."
  577. 11730 [153]" SO"
  578. 11750 [153]" THERE ARE PROBABLY NINE 24'S IN 192.":[141]18000:[141]48005
  579. 11760 [141]16100
  580. 11770 [153]"";[163]8);"00"
  581. 11790 [153]"                                                                "
  582. 11810 [153]"                                                                 "
  583. 11812 [129]NI[178]0[164]6:[143]*** DROP IN A NINE
  584. 11813 [151]1034[170](NI[172]40),57
  585. 11814 [139]NI[177]0[167][141]9924:[129]D[178]1[164]300:[130]D:[137]11816
  586. 11815 [141]9920:[129]D[178]1[164]300:[130]D
  587. 11816 [151]1034[170](NI[172]40),32:[130]NI
  588. 11819 [151]1274,57
  589. 11830 [129]K[178]1[164]500:[130]K
  590. 11850 [153]""
  591. 11870 [153]"NOW WE MULTIPLY 9*24 AND PUT "
  592. 11890 [153]"THE PRODUCT IN THE CORRECT PLACE.":[129]K[178]1[164]2000:[130]K
  593. 11900 [141]17800:[129]D[178]1[164]1000:[130]D:[141]18000
  594. 11910 [141]48005
  595. 11990 [153]"LOAD":[153]
  596. 12010 [153]"";[163]8);"009"
  597. 12030 [153]"       TOTOTOTOTO"
  598. 12050 [153]"     24)192":[129]K[178]1[164]1000:[130]K
  599. 12070 [153]"9*24 IS 216.":[129]K[178]1[164]4000:[130]K
  600. 12090 [153]"";[163]7);216
  601. 12110 [153][163]8);"TAB(TAB(TAB( "
  602. 12130 [153]"                                                              "
  603. 12150 [129]K[178]1[164]2000:[130]K
  604. 12170 [153]"WE SEE THAT 216 CAN'T BE SUBTRACTED "
  605. 12190 [153]"   SO WE WILL TRY A SMALLER NUMBER.":[129]D[178]1[164]4500:[130]D
  606. 12194 [141]47300:[129]D[178]1[164]2000:[130]D:[141]18000
  607. 12195 [153]:[133]"WHAT NUMBER SHOULD WE TRY";NU
  608. 12196 [139]NU[179][177]8[167][153]"THE NUMBER TO TRY IS 8.":[141]48000
  609. 12430 [153]"LOAD";[163]8);"00"
  610. 12450 [153]"       TOTOTOTOTO"
  611. 12470 [153]"     24)192":[129]D[178]1[164]1000:[130]D
  612. 12472 [129]EI[178]0[164]6:[143] DROP IN AN 8
  613. 12473 [151]1034[170](EI[172]40),56
  614. 12474 [139]EI[177]0[167][141]9924:[129]D[178]1[164]300:[130]D:[137]12476
  615. 12475 [141]9920:[129]D[178]1[164]300:[130]D
  616. 12476 [151]1034[170](EI[172]40),32:[130]EI
  617. 12477 [151]1274,56:[129]D[178]1[164]500:[130]D
  618. 12490 [153]"NOW WE MULTIPLY 8*24 AND PUT THE "
  619. 12510 [153]"PRODUCT IN THE CORRECT PLACE.":[129]D[178]1[164]2000:[130]D
  620. 12520 [141]17800:[129]D[178]1[164]1000:[130]D:[141]18000
  621. 12530 [141]48005:[143]*** SPACE BAR ***
  622. 12630 [153]"LOAD";[163]8);"008"
  623. 12650 [153]"       TOTOTOTOTO"
  624. 12670 [153]"     24)192"
  625. 12690 [129]D[178]1[164]1000:[130]D
  626. 12710 [153]"8*24 IS 192."
  627. 12730 [129]D[178]1[164]3000:[130]D
  628. 12750 [153]"";[163]8);"192"
  629. 12770 [153]"                                                            "
  630. 12790 [129]D[178]1[164]1000:[130]D
  631. 12810 [153]"";[163]8);"TAB(TAB(TAB(":[129]D[178]1[164]2000:[130]D
  632. 12830 [153]" SUBTRACT."
  633. 12850 [129]K[178]1[164]1000:[130]K:[141]18000
  634. 12870 [141]48005:[143]*** SPACE BAR ***
  635. 12950 [153]"LOAD":[153]
  636. 12970 [153]"";[163]8);"008"
  637. 12990 [153]"       TOTOTOTOTO"
  638. 13010 [153]"     24)192 "
  639. 13030 [153][163]8);"192"
  640. 13050 [153][163]8);"TAB(TAB(TAB("
  641. 13070 [153][163]8);"000"
  642. 13090 [129]K[178]1[164]3000:[130]K
  643. 13095 [141]9600:[143]**** WIPEOUT ****
  644. 13096 [142]:[143]*** TO LINE 8052 ***
  645. 14997 :
  646. 14998 :
  647. 14999 [143]**** STUDENT INSTRUCTIONS ****
  648. 15000 [153]"LOAD":[153]:[153]
  649. 15005 [153]"  HERE ARE TWO THINGS TO REMEMBER"
  650. 15010 [153]"  WHEN YOU WORK ON THIS PROGRAM."
  651. 15015 [129]D[178]1[164]3000:[130]D
  652. 15020 [153]"   FIRST WAIT WHEN YOU SEE THE FLASHING "
  653. 15025 [153]"  SQUARE YOU ARE TO TYPE IN SOME- "
  654. 15030 [153]"  THING AND THEN PRESS THE RETURNWAIT KEY.":[129]D[178]1[164]8000:[130]D
  655. 15035 [153]"   SECOND WAIT THE LONG BAR ON THE KEY-"
  656. 15040 [153]"  BOARD IS THE SPACE BARWAIT."
  657. 15042 [153]"  PRESS IT ONLY WHEN I TELL YOU.":[129]D[178]1[164]4000:[130]D:[141]18000
  658. 15043 [153]"  LIKE RIGHT NOW!"
  659. 15046 [141]48005
  660. 15050 [153]"LOAD  THIS PROGRAM WILL SHOW YOU HOW TO       SOLVE PROBLEMS.
  661. 15055 PRINT"  FIRST WE WILL SOLVE A SIMPLE
  662. 15060 [153]"  PROBLEM BY LOOKING AT SOME              PICTURES.
  663. 15065 PRINT"  THEN I WILL SHOW YOU HOW YOU
  664. 15070 [153]"  CAN DO IT WITH EASY MATH.":[129]D[178]1[164]4000:[130]D
  665. 15071 [153]"  THERE IS A QUIZ AT THE END OF THE       PROGRAM."
  666. 15072 [129]D[178]1[164]2000:[130]D
  667. 15075 [141]18000:[141]48005:[143]*** SPACE BAR ***
  668. 15085 [137]13
  669. 15998 :
  670. 15999 :
  671. 16000 [143]*** TEACHER INSTRUCTIONS ***
  672. 16010 [153]"LOADTEACHER INSTRUCTIONS"
  673. 16020 [153]" THIS PROGRAM REVIEWS THE GENERAL"
  674. 16030 [153]" CONCEPT OF DIVISION."
  675. 16040 [153]" THE PROGRAM SUPPORTS THE TEACHING "
  676. 16050 [153]" OF DIVISION (2 DIGIT DIVISORS)."
  677. 16052 [153]" THE INPUT TECHNIQUES AND PACE ARE "
  678. 16054 [153]" DESIGNED FOR A GRADE 5 READING LEVEL."
  679. 16055 [153]" THE STUDENT CAN CHOOSE THE LEVEL "
  680. 16060 [153]" OF DIFFICULTY."
  681. 16061 [153]" THE PROGRAM CONTAINS SOUND."
  682. 16064 :
  683. 16065 [141]48005:[143]*** SPACE BAR ***
  684. 16075 [137]13
  685. 16100 [153]"                                      ":[142]
  686. 17498 :
  687. 17499 [143]**** FLASHING NUMBERS ****
  688. 17500 [129]X[178]1[164]40
  689. 17502 [151]1349,180:[151]1352,178:[151]1353,180:[129]D[178]1[164]90:[130]D
  690. 17504 [151]1349,52:[151]1352,50:[151]1353,52:[129]D[178]1[164]90:[130]D:[130]X
  691. 17506 [142]
  692. 17598 :
  693. 17599 [143]**** FLASHING NUMBERS ****
  694. 17600 [129]X[178]1[164]40
  695. 17602 [151]1349,179:[151]1352,177:[151]1353,181:[129]D[178]1[164]90:[130]D
  696. 17604 [151]1349,51:[151]1352,49:[151]1353,53:[129]D[178]1[164]90:[130]D:[130]X
  697. 17606 [142]
  698. 17698 :
  699. 17699 [143]***** FLASHING NUMBERS *****
  700. 17700 [129]X[178]1[164]40
  701. 17702 [151]1349,178:[151]1352,177:[151]1353,185:[129]D[178]1[164]90:[130]D
  702. 17704 [151]1349,50:[151]1352,49:[151]1353,57:[129]D[178]1[164]90:[130]D:[130]X
  703. 17706 [142]
  704. 17800 [129]X[178]1[164]15:[151]1396,31:[129]D[178]1[164]90:[130]D:[143]*** FLASHING ARROW ***
  705. 17810 [151]1396,159:[129]D[178]1[164]90:[130]D:[130]X
  706. 17820 [142]
  707. 17998 :
  708. 17999 [143]**** FIDDLEPROOFING ****
  709. 18000 [129]D[178]1[164]20:[161]Z$:[130]D:[142]
  710. 18004 :
  711. 18099 :
  712. 18100 [153]"         OANDSGN  OANDSGN  OANDSGN  OANDSGN  OANDSGN
  713. 18110 PRINT"        [206]U   /U   [206]U   [206]U   [206]U                  [165][218]   [165][218]   [165][218]   [165][218]   [165][218]
  714. 18120 [153]"        THEN FN  THEN FN  THEN FN  THEN FN  THEN FN
  715. 18130 PRINT"        [167] [165]  [167] [165]  [167] [165]  [167] [165]  [167] [165]
  716. 18135 [142]
  717. 18198 :
  718. 18199 [143]***** COMMANDER LABEL *****
  719. 18200 [151]1277,3:[151]1278,15:[151]1279,13:[151]1280,13:[151]1281,1:[151]1282,14
  720. 18210 [151]1283,4:[151]1284,5:[151]1285,18:[151]1286,19
  721. 18220 [142]
  722. 19998 :
  723. 19999 :
  724. 20000 [153]"LOAD":[143]*** STAR TRAIL ***
  725. 20010 [151]1224[170]35,42:[141]30000
  726. 20020 [151]1224[170]35,32:[141]30000
  727. 20030 [151]1344[170]30,42:[141]30000
  728. 20040 [151]1344[170]30,32:[141]30000
  729. 20050 [151]1464[170]27,42:[141]30000
  730. 20060 [151]1464[170]27,32:[141]30000
  731. 20070 [151]1584[170]22,42:[141]30000
  732. 20080 [151]1584[170]22,32:[141]30000
  733. 20090 [151]1504[170]14,42:[141]30000
  734. 20100 [151]1504[170]14,32:[141]30000
  735. 20110 [151]1384[170]6,42:[141]30000
  736. 20120 [151]1384[170]6,32:[141]30000
  737. 30000 [129]D[178]1[164]100:[130]D:[142]
  738. 31200 V[178]1307:E[178]0
  739. 31202 [129]G[178]1[164]7:F[178]42
  740. 31205 [139]E[178]1[176]E[178]3[176]E[178]5[176]E[178]7[167]F[178]32
  741. 31210 [129]P[178]V[164]V[170]25:[151]P,F:[130]P
  742. 31220 [129]P[178]V[170]25[164]V[170]105[169]40:[151]P,F:[130]P
  743. 31230 [129]P[178]V[170]105[164]V[170]80[169][171]1:[151]P,F:[130]P
  744. 31240 [129]P[178]V[170]80[164]V[169][171]40:[151]P,F:[130]P
  745. 31245 E[178]E[170]1
  746. 31248 [130]G
  747. 31250 [142]
  748. 33000 [153]"LOAD":[143]++++UNIVERSE++++
  749. 33010 X[178]10:Y[178]2:[141]60000:[153]"    .     ."
  750. 33020 X[178]20:Y[178]4:[141]60000:[153]"        .            ."
  751. 33030 X[178]5:Y[178]6:[141]60000:[153]"           ."
  752. 33040 X[178]15:Y[178]8:[141]60000:[153]"       ."
  753. 33050 X[178]20:Y[178]10:[141]60000:[153]"         ."
  754. 33060 X[178]5:Y[178]11:[141]60000:[153]"     ."
  755. 33070 X[178]10:Y[178]15:[141]60000:[153]"       ."
  756. 33080 X[178]20:Y[178]16:[141]60000:[153]"     .   "
  757. 33090 X[178]15:Y[178]18:[141]60000:[153]"   .     "
  758. 34000 [142]
  759. 39998 :
  760. 39999 [143]**** STARSHIPS ****
  761. 40000 [153]"LOAD";:[153]""
  762. 40001 [153]"   (null) (null)
  763. 40010 PRINT"   [195] [146][195]
  764. 40020 [153]"   (null) (null)
  765. 40025 FORK=1TO200:NEXTK
  766. 40030 RETURN
  767. 42000 PRINT"[147]"
  768. 42001 PRINT"   [205]       [206]
  769. 42002 [153]"    (null)     (null)
  770. 42003 PRINT"     [205]   [206]
  771. 42004 [153]"         WAIT
  772. 42005 PRINT"[195][195][195][195][195][195] ..[146][195][195][195][195][195]"
  773. 42006 PRINT"         [146]
  774. 42007 [153]"     (null)   (null)
  775. 42008 PRINT"    [206]     [205]
  776. 42009 [153]"   (null)       (null)
  777. 42010 FORK=1TO200:NEXTK
  778. 42020 RETURN
  779. 44000 PRINT"[147]"
  780. 44010 PRINT"           [205]              [206]
  781. 44020 [153]"            (null)            (null)
  782. 44030 PRINT"             [205]          [206]
  783. 44040 [153]"              (null)        (null)
  784. 44050 PRINT"               [205]      [206]
  785. 44060 [153]"                STEP    (null)WAIT
  786. 44070 PRINT"                      [146]
  787. 44080 [153]"     LENLENLENLENLENLENLENLENLENLENLEN  LOG COS WAITLENLENLENLENLENLENLENLENLEN"
  788. 44090 [153]"                      WAIT
  789. 44100 PRINT"                [223]    [146][169]
  790. 44110 [153]"               (null)      (null)
  791. 44120 PRINT"              [206]        [205]
  792. 44130 [153]"             (null)          (null)
  793. 44140 PRINT"            [206]            [205]
  794. 44150 [153]"           (null)              (null)
  795. 44160 PRINT"[147]"
  796. 44170 RETURN
  797. 45498 REM****** STAR GENERATOR ******
  798. 45500 PRINT"[147]";
  799. 45502 Z=0
  800. 45510 FORK=1TO10:NEXTK:PRINT""
  801. 45520 FORD=1TOINT(22*RND(TI))
  802. 45530 PRINT"";:NEXTD
  803. 45540 FORR=1TOINT(40*RND(1))
  804. 45550 PRINT"";:NEXTR
  805. 45560 PRINT".":Z=Z+1
  806. 45570 FORT=1TO5:NEXTT
  807. 45572 IFZ=30THENRETURN
  808. 45573 GOTO45510
  809. 45999 :
  810. 46000 S=1024:F=1024+35:REM** WIPEOUT **
  811. 46010 FORX=STOF
  812. 46020 POKEX,45
  813. 46030 NEXTX
  814. 46040 FORX=STOF
  815. 46050 POKEX,32
  816. 46060 NEXTX
  817. 46070 S=S+41:F=F+39
  818. 46080 IFS<FTHEN46010
  819. 46090 RETURN
  820. 46100 FORL=1189TO1219:POKEL,160:NEXTL
  821. 46110 FORL=1829TO1859:POKEL,160:NEXTL
  822. 46120 FORL=1189TO1829STEP40:POKEL,160:NEXTL
  823. 46130 FORL=1219TO1859STEP40:POKEL,160:NEXT
  824. 46140 RETURN
  825. 46999 :
  826. 47000 PRINT"[147]";
  827. 47010 PRINT"                 [206][163][163][205]
  828. 47011 [153]"                 FNTAB(TAB(THEN
  829. 47012 PRINT"                [206][165].[164][167][205]
  830. 47013 [153]"                FNFN  THEN FN
  831. 47014 PRINT"                [165][165].[163][167] [165]
  832. 47015 [153]"                FNFN  THEN FN
  833. 47016 PRINT"               [206][206][163][163][163][163][205][205]
  834. 47017 [153]"               TAB(      TAB(
  835. 47050 RETURN
  836. 47298 :
  837. 47299 REM*** CROSS OUT WRONG ANSWER ***
  838. 47300 POKE1271,77:POKE1276,78
  839. 47310 POKE1312,77:POKE1315,78
  840. 47320 POKE1432,78:POKE1435,77
  841. 47330 POKE1471,78:POKE1476,77
  842. 47340 POKE1353,77:POKE1354,78
  843. 47345 POKE1393,78:POKE1394,77
  844. 47350 RETURN
  845. 47999 :
  846. 48000 REM*** BULLETPROOF SPACE BAR ***
  847. 48005 PRINT"PRESS SPACE BAR[146]."
  848. 48010 GETZ$:IFZ$=""THEN48010
  849. 48020 Z=ASC(Z$)
  850. 48030 IFZ<>160ANDZ<>32THEN48010
  851. 48040 RETURN
  852. 48098 :
  853. 48099 :
  854. 48100 REM*** MUSIC GENERATOR ****
  855. 48105 S=54272:SQ=SQ+1
  856. 48110 FORL=STOS+23:POKEL,0:NEXT
  857. 48115 IFSQ=1ORSQ=4THENPOKES+5,88:POKES+6,89:GOTO48130
  858. 48120 POKES+5,9:POKES+6,0
  859. 48125 REM
  860. 48130 GOSUB59100:REM** SET VOLUME ***
  861. 48140 READHF,LF,DR
  862. 48150 IFHF<0THENGOSUB59200:RETURN:REM***TURN OFF VOLUME***
  863. 48155 DR=DR*.8
  864. 48160 POKES+1,HF:POKES,LF
  865. 48170 POKES+4,33
  866. 48180 FORT=1TODR:NEXT
  867. 48190 POKES+4,32:FORT=1TO50:NEXT
  868. 48192 GOTO48140
  869. 48194 :
  870. 48198 :
  871. 48199 REM**** STAR WARS ****
  872. 48200 DATA9,159,128,9,159,128,9,159,128
  873. 48205 DATA12,216,512,19,63,512,17,37,128
  874. 48210 DATA16,47,128,14,107,128,25,177,512
  875. 48215 DATA19,63,256
  876. 48220 DATA17,37,128,16,47,128,14,107,128
  877. 48225 DATA25,177,512,19,63,256
  878. 48230 DATA17,37,128,16,47,128,17,37,128
  879. 48240 DATA14,107,512,9,159,128,9,159,128
  880. 48245 DATA12,216,512,19,63,512
  881. 48250 DATA17,37,128,16,47,128,14,107,128
  882. 48255 DATA25,177,512,19,63,256
  883. 48260 DATA17,37,128,16,47,128,14,107,128
  884. 48265 DATA25,177,512,19,63,256
  885. 48270 DATA17,37,128,16,47,128,17,37,128
  886. 48275 DATA14,107,1024,-1,-1,-1
  887. 48276 :
  888. 48299 REM**** UP UP AND AWAY ****
  889. 48300 DATA19,63,256,19,63,128,25,177,384
  890. 48305 DATA28,214,128,32,94,768
  891. 48310 DATA32,94,128,32,94,128,32,94,128
  892. 48315 DATA34,75,256,28,214,384
  893. 48320 DATA25,177,128,28,214,896,-1,-1,-1
  894. 48398 :
  895. 48498 :
  896. 48499 REM*** CANTINA BAND  ****
  897. 48500 DATA14,107,128,19,63,128,14,107,128
  898. 48505 DATA19,63,128
  899. 48508 DATA14,107,64,19,63,128,14,107,128
  900. 48510 DATA13,156,64,14,107,128
  901. 48512 DATA14,107,64,13,156,64,14,107,64
  902. 48515 DATA12,216,128
  903. 48517 DATA12,32,64,12,216,64,12,32,64
  904. 48520 DATA11,114,256,9,159,256
  905. 48522 DATA14,107,128,19,63,128,14,107,128
  906. 48525 DATA19,63,128
  907. 48527 DATA14,107,64,19,63,128,14,107,64
  908. 48535 DATA12,216,128,12,216,192,12,32,64
  909. 48540 DATA12,216,128
  910. 48542 DATA17,37,128,15,70,128,14,107,128
  911. 48545 DATA12,216,128
  912. 48547 DATA14,107,128,19,63,128,14,107,128
  913. 48550 DATA19,63,128
  914. 48552 DATA14,107,64,19,63,128,14,107,128
  915. 48555 DATA13,156,64,14,107,128
  916. 48557 DATA17,37,128,17,37,192
  917. 48560 DATA14,107,64,12,216,128
  918. 48562 DATA11,114,256,9,159,256
  919. 48565 DATA9,159,256,11,114,256
  920. 48567 DATA14,107,256,17,37,256
  921. 48570 DATA20,100,128,19,63,128,13,156,64
  922. 48572 DATA14,107,192,11,114,512
  923. 48575 DATA-1,-1,-1
  924. 49998 :
  925. 49999 REM**** SCREEN BLANKING ****
  926. 50000 FORK=1TO50:POKE53265,PEEK(53265)AND235:POKE53265,PEEK(53265)OR16:NEXTK
  927. 50005 FORD=1TO500:NEXTD
  928. 50010 RETURN
  929. 50998 :
  930. 50999 REM***** POD ACTION *****
  931. 51000 POD=1030:SR=0
  932. 51002 POKEPOD,42:SR=SR+1:POD=POD+41
  933. 51003 FORD=1TO50:NEXTD
  934. 51004 IFSR>5THENPOKEPOD-(6*41),32:FORD=1TO50:NEXTD
  935. 51005 IFPEEK(2014)=42THENPOKE1850,32:POKE1891,32:POKE1932,32:POKE1973,32
  936. 51006 POKE2014,32:IFPOD>2014THEN51100
  937. 51007 GOTO51002
  938. 51100 FORD=1TO70:NEXTD:RETURN
  939. 58091 :
  940. 58092 :
  941. 58093 REM**** HARD TEST QUESTION ****
  942. 58094 PRINT"[147]"TAB(11);"[164][164][164][164][164]"
  943. 58095 PRINTTAB(9);"27)189"
  944. 58096 PRINT"NOW WRITE THIS PROBLEM DOWN ON A PIECE     OF PAPER.":PRINT
  945. 58097 PRINTTAB(1);"SEE IF YOU CAN SOLVE IT.":FORK=1TO3000:NEXTK:GOSUB18000
  946. 58098 PRINT""TAB(4);"PRESS SPACE BAR[146] TO SEE THE ANSWER."
  947. 58100 GETM$:IFM$=""THEN58100
  948. 58102 M=ASC(M$)
  949. 58104 IFM<>160ANDM<>32THEN58100
  950. 59003 PRINT"[147]"
  951. 59004 PRINT"           [164][164][164][164][164]
  952. 59005 [153]"         27)189
  953. 59006 FORK=1TO2000:NEXTK
  954. 59010 PRINT"[147]"
  955. 59012 PRINT"            0
  956. 59014 [153]"           TOTOTOTOTO
  957. 59016 PRINT"         27)189
  958. 59018 [129]K[178]1[164]1000:[130]K
  959. 59020 [153]"LOAD"
  960. 59022 [153]"            00
  961. 59024 PRINT"           [164][164][164][164][164]
  962. 59026 [153]"         27)189
  963. 59028 FORK=1TO1000:NEXTK
  964. 59030 PRINT"[147]"
  965. 59032 PRINT"            007
  966. 59034 [153]"           TOTOTOTOTO
  967. 59036 PRINT"         27)189
  968. 59038 [129]K[178]1[164]1000:[130]K
  969. 59040 [153]"LOAD"
  970. 59042 [153]"            007
  971. 59044 PRINT"           [164][164][164][164][164]
  972. 59046 [153]"         27)189
  973. 59048 PRINT"            189
  974. 59050 [129]K[178]1[164]1000:[130]K
  975. 59060 [153]"LOAD"
  976. 59062 [153]"            007
  977. 59064 PRINT"           [164][164][164][164][164]
  978. 59066 [153]"         27)189
  979. 59068 PRINT"            189
  980. 59070 [153]"            TAB(TAB(TAB(
  981. 59080 FORK=1TO1000:NEXTK
  982. 59082 PRINT"[147]"
  983. 59084 PRINT"            007
  984. 59086 [153]"           TOTOTOTOTO
  985. 59088 PRINT"         27)189
  986. 59089 [153]"            189
  987. 59090 PRINT"            [163][163][163]
  988. 59092 [153]"            000
  989. 59094 FORK=1TO3000:NEXTK:GOSUB9600:FORD=1TO1000:NEXTD:GOTO9095
  990. 59100 RETURN
  991. 59200 RETURN
  992. 60000 PRINT"";
  993. 60010 IFY<>0THENPOKE214,Y-1:PRINT
  994. 60020 POKE211,X
  995. 60030 RETURN
  996. 60050 REM WHC 91:03:20
  997.